home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #010 (19xx)(APS Electronic).zip / Bavarian #010 (19xx)(APS Electronic).adf / Graph-Boot (.txt) < prev    next >
AmigaBASIC Source Code  |  1987-05-04  |  5KB  |  181 lines
  1. Start:
  2. PALETTE 0,0,0,0
  3. PALETTE 1,0.75,0.75,0.75
  4. PALETTE 2,0.6,1,0.6
  5. PALETTE 3,1,1,0
  6. DIM li%(100),ve%(1000),hor%(78),mov%(1000)
  7. CLS
  8. LINE (110,55)-(510,135),1,b
  9. PAINT (130,80),1
  10. LINE (110,55)-(510,135),0,b
  11. LINE (100,50)-(500,130),0,bf
  12. LINE (100,50)-(500,130),0,b
  13. LINE (300,50)-(300,130),1
  14. LINE (100,90)-(500,90),1
  15. y1=SIN(-200/10)
  16. FOR x=100 TO 500 STEP 1.4
  17.   y=SIN((x-300)/10)
  18.   LINE (x-1,y1*20+90 )-(x,y*20+90),2
  19.   y1=y
  20. NEXT
  21. COLOR 3
  22. LOCATE 1,1
  23. PRINT "Graph It"
  24. FOR i=0 TO 64 
  25.   GET (i,0)-(i,9),ve%
  26.   PUT (i,0),ve%
  27.   PUT (150+i*4,74),ve%,PSET
  28.   PUT (151+i*4,74),ve%,PSET
  29.   PUT (152+i*4,74),ve%,PSET
  30.   PUT (153+i*4,74),ve%,PSET
  31. NEXT i
  32. FOR i=7 TO 0 STEP -1
  33.   GET (150,74+i)-(406,74+i),ve%
  34.   PUT (150,74+i*2),ve%,PSET
  35.   PUT (150,73+i*2),ve%,PSET
  36. NEXT i
  37. LINE (0,0)-(200,8),0,bf
  38. LOCATE 12,21
  39. PRINT "By"
  40. LOCATE 1,1
  41. PRINT "Flynn D. Fishman"
  42. FOR i=0 TO 128 
  43.   GET (i,0)-(i,8),ve%
  44.   PUT (i,0),ve%
  45.   PUT (190+i*2,94),ve%,PSET
  46.   PUT (191+i*2,94),ve%,PSET
  47. NEXT i
  48. LOCATE 19,20
  49. PRINT "Press The Left Mouse Key To Continue"
  50. COLOR 2
  51. PRINT TAB(15)"For the Help Menu Point the Mouse at the '";:COLOR 0,2:PRINT"?";:COLOR 2,0:PRINT "' Icon
  52. PRINT TAB(24)"and hold the left Mouse Button"
  53. WHILE MOUSE(0)<>-1
  54.   'do nothing
  55. WEND
  56. FOR i=0 TO 201
  57.   LINE (99+i,50)-(500-i,130),3,b
  58. NEXT i
  59. FOR i=1 TO 0 STEP-0.01
  60.   PALETTE 1,i*0.75,i*0.75,i*0.75
  61.   PALETTE 3,i,i,0
  62. NEXT i
  63. LINE (0,0)-(599,151),0,bf
  64. FOR i = 0 TO 1 STEP 0.01
  65.   PALETTE 1,0,i,0
  66.   PALETTE 2,0.6+i*0.4,1,0.6+i*0.4
  67. NEXT i
  68.  
  69. PALETTE 1,0,1,0
  70. PALETTE 2,1,1,1
  71. PALETTE 3,1,0,0
  72.  
  73. SetConstants:
  74.   LINE (0,1)-(0,179),1
  75.   GET (0,1)-(0,179),ve%
  76.   PUT (0,1),ve%
  77.   LINE (1,0)-(599,0),1
  78.   GET (1,0)-(599,0),hor%
  79.   PUT (1,0),hor%
  80.   GET (1,1)-(10,179),mov%
  81.     
  82. SetVariables:
  83.   xmin=-10
  84.   xmax=10
  85.   ymin=-10
  86.   ymax=10
  87.   Label=1
  88.   points=100
  89.   accslope=0.0001
  90.  
  91. '#####################################  
  92. DrawMenu:  
  93.   FOR i=1 TO 16
  94.     LINE (601,i*10)-(617,i*10+8),2,bf
  95.   NEXT i
  96. left.arrow:
  97.   LINE (604,13)-(612,13),0
  98.   LINE (604,15)-(612,15),0
  99.   LINE (609,11)-(614,14),0
  100.   LINE (609,17)-(614,14),0
  101.   LINE (610,11)-(615,14),0
  102.   LINE (610,17)-(615,14),0
  103. Right.arrow:
  104.   FOR i=0 TO 12
  105.     GET (604+i,10)-(604+i,18),li%
  106.     PUT (616-i,20),li%,PSET
  107.     PUT (613-i,30),li%,PSET
  108.     PUT (606+i,40),li%,PSET
  109.     PUT (612-i,50),li%,PSET
  110.   NEXT i
  111.   LINE (611,31)-(616,34),0
  112.   LINE (611,37)-(616,34),0
  113.   LINE (612,31)-(617,34),0
  114.   LINE (612,37)-(617,34),0
  115.   LINE (601,41)-(608,47),3,bf
  116.   LINE (617,51)-(609,57),3,bf
  117.   
  118. Uparrows:
  119.   LINE (606,63)-(608,67),0,bf
  120.   LINE (612,63)-(614,67),0,bf    
  121.   LINE (610,61)-(605,64),0
  122.   LINE (610,61)-(615,64),0
  123.   LINE (609,61)-(604,64),0
  124.   LINE (611,61)-(616,64),0
  125.   FOR i=1 TO 8
  126.     GET (601,60+i)-(617,60+i),li%
  127.     PUT (601,78-i),li%,PSET
  128.     PUT (601,89-i),li%,PSET
  129.     PUT (601,89+i),li%,PSET
  130.     PUT (601,109-i),li%,PSET
  131.   NEXT i
  132.   LINE (610,80)-(605,83),0
  133.   LINE (610,80)-(615,83),0
  134.   LINE (609,80)-(604,83),0
  135.   LINE (611,80)-(616,83),0
  136.   LINE (604,95)-(616,98),3,bf
  137.   LINE (604,103)-(616,100),3,bf
  138.  
  139. Scale.Icon:
  140.   LINE (601,115)-(617,115),0
  141.   LINE (605,113)-(607,117),3,bf
  142.   LINE (614,113)-(616,117),3,bf  
  143.  
  144. Accuracy.Icon:
  145.   LOCATE 16,77
  146.   COLOR 3,2
  147.   PRINT "A"
  148.  
  149. Information.Icon:
  150.   LINE (603,131)-(616,137),0,bf
  151.   FOR i=0 TO 4 STEP 2
  152.     LINE (605,132+i)-(614,132+i),3
  153.   NEXT
  154.   LINE (608,133)-(610,137),0,bf
  155.   LINE (614,133)-(616,137),0,bf  
  156.   
  157. Origion.Icon:
  158.   LINE (609,141)-(611,147),3,bf
  159.   LINE (603,144)-(616,144),3,bf
  160.  
  161. Quit.Icon:
  162.   LOCATE 1,1
  163.   PRINT "Q"
  164.   GET (0,0)-(7,7),li%
  165.   PUT (605,151),li%,PSET
  166.   
  167. Help.Icon:  
  168.   LOCATE 1,1
  169.   PRINT "?"
  170.   GET (0,0)-(7,7),li%
  171.   PUT (605,161),li%,PSET
  172.   LOCATE 1,1
  173.   COLOR 2,0
  174.   PRINT " "
  175.  
  176. CHAIN "Graph-Main",,ALL
  177.  
  178. Finish:  
  179.  
  180.  
  181.